home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Outlook Express 2.xpl < prev    next >
Text File  |  2001-08-28  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Outlook Express\Data Storage"
  5. "NAME"="Address Book"
  6. "VERSION"="1.21"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Address Book"
  9. "DATA 1"="WAB Files (*.wab)|*.wab"
  10. "DESCRIPTION 1"="If you do not like the default location of your Outlook Express Address Book, you can change it here."
  11. "DESCRIPTION 2"="Please select the new location for the address book (WAB) file and the file will be moved there."
  12. "DESCRIPTION 3"="Remember to exit Outlook Express before applying the change!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Bj÷rn Teichmann and Marco Schelling for this setting."
  17. "COMMENT 2"="Thanks to James_R_Morris_Jr [James_R_Morris_Jr@ims.msn.com] for the spelling correction."
  18. "COMMENT 3"="Thanks Hal Adam for the REG_EXPAND_SZ not in 24bit Windows bug notice!"
  19.  
  20.  
  21.  
  22. 'sPath="HKCU\Software\Microsoft\WAB\WAB4_1\Wab File Name\"
  23. sPath="HKCU\Software\Microsoft\WAB\WAB4\Wab File Name\"
  24. sPath2=sPath & "@"
  25. sOld=""
  26. Sub Plugin_Initialize 
  27.  if RegPathExists(sPath) then
  28.   s=RegReadValue(sPath2)
  29.   SetUIElement 1,s
  30.  
  31.   sOld=s
  32.  else
  33.   Disable
  34.  end if
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  s=GetUIElement(1)
  42.  
  43.  if s<>"" then
  44.   if UCase(right(s,3))<>"WAB" then
  45.    Call MsgError("Please enter the name and path of the WAB file, for example C:\DATA\ADDRB.WAB. Do not forgot the WAB extension.") 
  46.   else
  47.    if FileExists(s)=true then
  48.     Call MsgError("The selected file already exists! Please choose a different name.")
  49.    else
  50.     'looks OK, let's try it
  51.        
  52.     Call FileCopy(sOld,s)
  53.  
  54.     'which value type do we need to write? REG_EXPAND_SZ is not support in 95/98/ME!
  55.     i=GetWinVer
  56.     if i=1 or i=3 or i=5 then
  57.        'Win 95/98/ME = 24bit Windows
  58.        Call RegWriteValue(sPath2,s,1)
  59.     else
  60.        'Win NT/2K/XP = 32bit Windows
  61.        Call RegWriteValue(sPath2,s,4)
  62.     end if
  63.  
  64.     Call FileDelete(sOld)
  65.  
  66.     Call MsgInformation("File has been moved to " & s & ".")
  67.    end if
  68.   end if
  69.  else
  70.   Call MsgError("Please supply a location for the WAB file!")
  71.  end if
  72. End Sub
  73.  
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.  
  78.  
  79.  
  80.